%% stepsperorder: [632.8, 12400, 15000, 100, 30, 400, .2]
&& phasemapper: [1, 1, 632.8, 632.8, 400, 0.20, 3]

set_status: [`Home Motors`]
mirror: [home_sky]
mirror: [home_cal]

# Phase map taken at start and end of each night:
ifsea: [1, 2] [cont]

        cameraset: [0.2, 400]
        mirror: [drive_cal] 
	set_status: [`Acquire Phasemap`]
        phasemapper: [1, 1, 632.8, 632.8, 400, 0.2, 5]

ifsea: [1, 2] [loop]


# Main Red-Green loop:
ifsea: [-100, 2] [cont]

	set_status: [`Obs: Red & Green`]

	cameraset: [0.2, 400]	

	mirror: [drive_cal]
	spectrum: [632.8, default_zones.txt, `Y$_doy$_Date_0n$_0d$_CAL_6328_NZ0115.nc`]		

	mirror: [drive_sky]
	mirror: [drive_sky]
	filter: [1]	
	cameraset: [0.2, 500]
	spectrum: [630.0, default_zones.txt, `Y$_doy$_Date_0n$_0d$_SKY_6300_NZ0115.nc`]

#	mirror: [drive_cal]
#	mirror: [drive_sky]
	filter: [2]		
	spectrum: [557.7, default_zones.txt, `Y$_doy$_Date_0n$_0d$_SKY_5577_NZ0115.nc`]

#	mirror: [drive_cal]
#	mirror: [drive_sky]
	filter: [1]		
	spectrum: [630.0, default_zones.txt, `Y$_doy$_Date_0n$_0d$_SKY_6300_NZ0115.nc`]

#        filter: [5]
#	filter: [2, 22, /force]	

#	mirror: [drive_cal]
#	mirror: [drive_sky]
	
	filter: [2]		
	spectrum: [557.7, default_zones.txt, `Y$_doy$_Date_0n$_0d$_SKY_5577_NZ0115.nc`]

#initialise: [dummy]


ifsea: [-100, 2] [loop]


ifsea: [-6, 120] [cont]
	shutterclose: [1]
	shutdownspex: [1]
	runscript: [kaktovik_ftp_data]
	set_status: [`Idle`]
ifsea: [-6, 120] [loop]